home *** CD-ROM | disk | FTP | other *** search
/ Beginning Mac Programming / Beginning Mac Programming.bin / pc / Open Me for REALbasic 3 / REALbasic 3.2 / Goodies / Development Tools / XCMDs and XFCNs / Text / MultipleText XFCN v1.1 / stack_-1.xml < prev    next >
Encoding:
Extensible Markup Language  |  1995-11-20  |  1.4 KB  |  20 lines
  1. <?xml version="1.0" encoding="utf-8" ?>
  2. <!DOCTYPE stack PUBLIC "-//Apple, Inc.//DTD stack V 2.0//EN" "" >
  3. <stack>
  4.     <name>in.1</name>
  5.     <id>-1</id>
  6.     <cardCount>1</cardCount>
  7.     <cardID>2196</cardID>
  8.     <listID>3816</listID>
  9.     <cantModify><false /></cantModify>
  10.     <cantDelete><false /></cantDelete>
  11.     <cantAbort><false /></cantAbort>
  12.     <cardSize>
  13.         <width>416</width>
  14.         <height>296</height>
  15.     </cardSize>
  16.     <script>on openStack
  17. global username
  18. if username = "Matthias Kahlert" then
  19. set lockText of bg fld "XTernal" to false
  20. set lockText of bg fld "Version" to false
  21. set lockText of bg fld "Infos" to false
  22. show bg fld "Resources"
  23. else
  24. set lockText of bg fld "XTernal" to true
  25. set lockText of bg fld "Version" to true
  26. set lockText of bg fld "Infos" to true
  27. hide bg fld "Resources"
  28. end if
  29. pass openStack
  30. end openStack
  31.  
  32. on XC_ShowAbout
  33. put (bg fld "XTernal" && "Infos") into theWindow
  34. picture theWindow,"Resource","Dialog"
  35. if there is no window theWindow then
  36. beep
  37. answer "Error‚Ķ" & return & ¬¨
  38. "______________________________________" & return & return & ¬¨
  39. "Missing PICT resource or running out of memory." ¬¨
  40. with "Sorry"
  41. else
  42. wait until the mouseClick
  43. close window theWindow
  44. end if
  45. end XC_ShowAbout</script>
  46.     <background id="2316" file="background_2316.xml" name="XTernal Collection" />
  47.     <card id="2196" file="card_2196.xml" marked="false" name="XTernal Collection" owner="2316" />
  48. </stack>
  49.